**# Bookmark #1 Setting

*Windows
global root  = "G:/Dropbox/Environmental Injustice/Empirical"
global rawdata = "$root/rawdata"
global workdata = "$root/workdata"
global results = "$root/results"
global outfile = "$root/outfile"

cd "$workdata"

**# Bookmark #2.1 Fig. S7(A)

use "$outfile/Fig. S7(A).dta",clear

twoway (scatter ratio2010_quanti30 ratio2005_quanti30 if lowedu5==1) ///
		(function y=x, lpattern(dash) range(0 100)), /// 
		xtitle("Share of Below College Without Tapwater in 2005(%)") ///
		ytitle("Share of Below College Without Tapwater in 2010(%)") ///
		graphregion(lcolor(white) color(white)) ///
		plotregion(margin(zero) color(white)) ///
		ylabel(, nogrid) legend(off)

graph export "$results/Fig. S7(A).pdf", as(pdf) name("Graph") replace

**# Bookmark #2.2 Fig. S7(B)
use "$outfile/Fig. S7(B).dta",clear

twoway (scatter ratio2010_quanti30 ratio2005_quanti30 if lowedu5==0) ///
       (function y=x, lpattern(dash) range(0 100)), ///
	   xtitle("Share of College Graduates Without Tapwater in 2005(%)") ///
	   ytitle("Share of College Graduates Without Tapwater in 2010(%)") ///
	   graphregion(lcolor(white) color(white)) ///
	   plotregion(margin(zero) color(white)) ///
	   ylabel(, nogrid) legend(off)

graph export "$results/Fig. S7(B).pdf", as(pdf) name("Graph") replace
	   


